home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / 17bals.zip / RBBS-PC.ALS < prev    next >
Text File  |  1988-11-06  |  8KB  |  185 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against virgin17\rbbs-pc.bas to produce ..\rbbs-pc.bas
  3. * rbbs-pc.bas:  Date 10-3-1988  Size 138656 bytes
  4. * ------------[ Created 10-11-1988 06:51:22 ]------------
  5. * REPLACING old line(s) by new
  6. 178 IF SUB.BOARD THEN _
  7. * ------[ first line different ]------
  8.        IF ORIG.FIRST.NAME$ = SYSOP.FIRST.NAME$ AND _              'DGS-ALSMOD
  9.           LAST.NAME$ = SYSOP.LAST.NAME$ THEN _
  10.          RETURN 832 _
  11.        ELSE RETURN 800
  12.     RETURN
  13. * REPLACING old line(s) by new
  14. 800 IF ORIG.CONFIG$ = CURRENT.DEF$ THEN _
  15.        MAIN.USER.FILE.INDEX = USER.FILE.INDEX : _
  16.        USER.SECURITY.SAVE = USER.SECURITY.LEVEL : _
  17. * ------[ first line different ]------
  18.        ORIG.FIRST.NAME$ = FIRST.NAME$ : _                          'DGS-ALS
  19.        ORIG.USER.NAME$ = ACTIVE.USER.NAME$
  20.     TIMES.LOGGED.ON = CVI(MID$(USER.OPTIONS$,1,2)) - _
  21.                       (ORIG.CONFIG$ <> CURRENT.DEF$ OR NOT SUB.BOARD)
  22.     GOSUB 9500
  23.     PREV.LAST.ON$ = LAST.DATE.TIME.ON$
  24.     IF LOCAL.USER THEN _
  25.        TALK.TO.MODEM.AT$ = "9600" : _
  26.        BAUD.PARITY$ = "9600 BAUD,N,8,1" : _
  27.        MODEM.INIT.BAUD$ = "9600" : _
  28.        SNOOP = TRUE : _
  29.        LINE.FEEDS = TRUE
  30.     CALL SETCRLF
  31.     CALL CALLOPT
  32.     CALL XFERTYPE (2,TRUE)
  33.     IF NOT SUB.BOARD THEN _
  34.        BOARD.CHECK.DATE$ = PREV.LAST.ON$
  35.     IF PRIVATE.DOOR OR SUB.BOARD THEN _
  36.        GOTO 815
  37.     GOSUB 465
  38.     IF (EIGHT.BIT AND _
  39.        AUTODOWNLOAD.DESIRED) OR _
  40.        ASK.IDENTITY THEN _
  41.        CALL TESTUSER
  42.     CALL QTPUT ("Logging " + ACTIVE.USER.NAME$,1)
  43.     CALL QTPUT ("RBBS-PC " + VERSION.ID$ + " NODE " + NODE.ID$ + _
  44.                 ", OPERATING AT " + BAUD.PARITY$,1)
  45.     CALL SKIPLINE (1)
  46.     ATTEMPTS = 0
  47. '
  48. ' *****  NOTIFY THE CALLER IF THEY ARE ABLE TO USE "AUTODOWNLOADING"  ****
  49. '
  50.     IF EIGHT.BIT AND AUTODOWNLOAD.AVAILABLE THEN _
  51.        A$ = CHR$(9) + _
  52.             RETURN.LINE.FEED$ + _
  53.             "You may use AUTODOWNLOADing!" : _
  54.        CALL RINGCALLER : _
  55.        CALL DELAYIT(4)
  56. * REPLACING old line(s) by new
  57. 1920 X$ = MID$(MESSAGE.RECORD$,37,22)
  58.      IF INSTR(X$,MESSAGE.USER.NAME$) OR _
  59. * ------[ first line different ]------
  60.     (INSTR(ACTIVE.USER.NAME$,CHR$(32)) > 1 AND _              'DGS-ALS
  61.      INSTR(X$,LEFT$(ACTIVE.USER.NAME$,22))) OR _              'DGS-ALS
  62.         (SYSOP AND INSTR(X$,"SYSOP")) OR _
  63.         (SYSOP AND INSTR(X$,SYSOP.FULL.NAME$)) THEN _
  64.         GOTO 1925
  65.      GOTO 1935
  66. * REPLACING old line(s) by new
  67. 1935 IF INSTR(MID$(MESSAGE.RECORD$,6,31),ACTIVE.USER.NAME$) OR _
  68. * ------[ first line different ]------
  69.     (INSTR(ORIG.USER.NAME$,CHR$(32)) > 1 AND _                 'DGS-ALS
  70.      INSTR(MID$(MESSAGE.RECORD$,6,31),ORIG.USER.NAME$)) OR _   'DGS-ALS
  71.         (SYSOP AND INSTR(MID$(MESSAGE.RECORD$,6,31),"SYSOP")) OR _
  72.         (SYSOP AND INSTR(MID$(MESSAGE.RECORD$,6,31),SYSOP.FIRST.NAME$ + " " + SYSOP.LAST.NAME$)) THEN _
  73.         GOTO 1940
  74.      GOTO 1945
  75. * REPLACING old line(s) by new
  76. 4561   X$ = MID$(MESSAGE.RECORD$,X)
  77.        FF = INSTR(X$,MESSAGE.USER.NAME$)
  78. * ------[ first line different ]------
  79.        DGSFF = FALSE                                              'DGS-ALS
  80.        IF FF = 0 THEN _                                           'DGS-ALS
  81.       FF = INSTR(X$,LEFT$(ACTIVE.USER.NAME$,22)) : _          'DGS-ALS
  82.       DGSFF = TRUE                                            'DGS-ALS
  83.        IF FF > 0 THEN _
  84.       IF DGSFF = TRUE THEN _                                  'DGS-ALS
  85.          X = LEN (ACTIVE.USER.NAME$) _                        'DGS-ALS
  86.       ELSE _                                                  'DGS-ALS
  87.          X = LEN(MESSAGE.USER.NAME$) _                        'DGS-ALSMOD
  88.        ELSE IF SYSOP THEN _
  89.                FF = INSTR(X$,"SYSOP") : _
  90.                X = 5 : _
  91.                IF FF = 0 THEN _
  92.                   X = LEN(SYSOP.FULL.NAME$) : _
  93.                   FF = INSTR(X$,SYSOP.FULL.NAME$)
  94.        IF FF > 0 THEN _
  95.           X = X + FF : _
  96. IF (FF < 7 OR MID$(MESSAGE.RECORD$,FF - 1,1) = " ") AND (X > 58 OR MID$(MESSAGE.RECORD$,X,1) = " ") THEN _
  97.              UH = TRUE _
  98.           ELSE IF FF < 37 THEN _
  99.                   X = 37 : _
  100.                   GOTO 4561
  101.        MSG.TO.CALLER = (UH AND (FF = 37)) OR _
  102.                        (MID$(MESSAGE.RECORD$,37,4) = "ALL ")
  103.        MSG.FROM.CALLER = UH AND (FF = 6)
  104. * REPLACING old line(s) by new
  105. * ------[ first line different ]------
  106. 5301 CALL SUBMENU ("What Conference/SubBoard, L)ist, M)ain ([ENTER] quits)",_ 'DGS-TXT
  107.                    A1$,MID$(MAIN.MESSAGE.FILE$,1,2),_
  108.                    "M.DEF","M",USER.GRAPHIC.DEFAULT$,TRUE,FALSE,FALSE)
  109.      IF Q = 0 THEN _
  110.     RETURN
  111.      ACTIVE.USER.NAME$ = ORIG.USER.NAME$                          'DGS-ALS
  112.      FIRST.NAME$ = ORIG.FIRST.NAME$                               'DGS-ALS
  113.      IF SUBROUTINE.PARAMETER = -1 THEN _
  114.         RETURN 10595
  115. * REPLACING old line(s) by new
  116. * ------[ first line different ]------
  117. 5345 DGS.STL$ = ""                                                'DGS-ALS
  118.      WHILE DGS.ALIAS$ = ""                                        'DGS-ALS
  119.     CALL DGSALIAS (GRN$,ORIG.USER.NAME$,DGS.ALIAS$, _         'DGS-ALS
  120.                DGS.STL$,DGS.FILE.NAME$)                   'DGS-ALS
  121.      WEND                                                         'DGS-ALS
  122.      DGS.ALIAS$=""                                                'DGS-ALS
  123.      GRN$ = GRN$ + " " + MID$("ConferenceSubboard",1-10*SUB.BOARD,10) 'DGS-ALSMOD
  124.      IF UPDATE.DATE THEN _
  125.         BOARD.CHECK.DATE$ = LAST.DATE.TIME.ON$ : _
  126.         LSET LAST.DATE.TIME.ON$ = CURRENT.DATE$ + _
  127.                                   " " + _
  128.                                   TIME.LOGGED.ON$ : _
  129.         GOSUB 9440 : _
  130.         GOSUB 12991
  131.      IF GLOBAL.SYSOP THEN _
  132.         ACTIVE.USER.NAME$ = "SYSOP"
  133. * REPLACING old line(s) by new
  134. 5350 IF GRN$ <> "MAIN" THEN _
  135. * ------[ first line different ]------
  136.     CALL QTPUT ("Rejoining " + ORIG.MSG.NAME$,1)
  137.      ACTIVE.USER.NAME$ = ORIG.USER.NAME$                          'DGS-ALS
  138.      FIRST.NAME$ = ORIG.FIRST.NAME$                               'DGS-ALS
  139.      GRN$ = "MAIN"
  140.      GRN.NAME$ = ORIG.MSG.NAME$
  141.      TURBO.LOGON = TRUE
  142.      Q = 0
  143.      IN.CONF.MENU = TRUE
  144.      IF ACTIVE.USER.NAME$ = "SYSOP" THEN _
  145.         ACTIVE.USER.NAME$ = SYSOP.PASSWORD.1$ + " " + SYSOP.PASSWORD.2$
  146.      CONFIG.FILENAME$ = ORIG.CONFIG$
  147.      CALL READDEF (CONFIG.FILENAME$)
  148.      IF MAIN.MESSAGE.FILE$ <> ACTIVE.MESSAGE.FILE$ THEN _
  149.         GOSUB 5342 : _
  150.         ACTIVE.MESSAGE.FILE$ = MAIN.MESSAGE.FILE$ : _
  151.         GOSUB 5343
  152.      IF MAIN.USER.FILE$ <> ACTIVE.USER.FILE$ THEN _
  153.         GOSUB 5380 : _
  154.         ACTIVE.USER.FILE$ = MAIN.USER.FILE$ : _
  155.         GOSUB 12598 : _
  156.         GOSUB 12990 : _
  157.         IF FOUND THEN _
  158.            GOSUB 9500 : _
  159.            MAIN.USER.FILE.INDEX = USER.FILE.INDEX : _
  160.            CALL CALLOPT : _
  161.            CALL XFERTYPE (2,TRUE) _
  162.         ELSE USER.FILE.INDEX = 0 : _
  163.              MAIN.USER.FILE.INDEX = 0
  164.      IF LOCAL.USER.MODE OR NOT LOCAL.USER THEN _
  165.         CALL UPDTCALR ("Exited Conference",1)
  166.      GOSUB 2350
  167. * REPLACING old line(s) by new
  168. 5380 IF USER.FILE.INDEX < 1 THEN _
  169.         RETURN
  170.      IF ADJUSTED.SECURITY AND NOT SYSOP THEN _
  171.         LSET SECURITY.LEVEL$ = MKI$(USER.SECURITY.LEVEL) : _
  172.         USER.SECURITY.SAVE = USER.SECURITY.LEVEL
  173. '       GOSUB 12989                               'PeFix 11/06/88
  174. * ------[ first line different ]------
  175.      IF SUB.BOARD THEN _                                          'DGS-ALS
  176.     ACTIVE.USER.NAME$ = ORIG.USER.NAME$ : _                   'DGS-ALS
  177.     FIRST.NAME$ = ORIG.FIRST.NAME$                            'DGS-ALS
  178.      CALL UPDATEU (FALSE)                      'PeFix 11/06/88
  179. '     PUT 5,USER.FILE.INDEX
  180. '     GOSUB 12991
  181.      RETURN
  182. '
  183. ' *****  RESTORE A USER RECORD  *****
  184. '
  185.